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SOFTWARE ARCHITECTURE 

(57)Abstract: 

PURPOSE: To provide the control system which uses 
the software architecture, equipped with several layers of 
abstract bodies, controlling the high-level parallel 
computer system. 

CONSTITUTION: An abstract physical machine 10 (1st 
layer) includes a group of abstract physical processors 
and is considered as a microkernel. A 2nd layer includes 
a virtual machine 2 and virtual processors 16. The virtual 
machine is equipped with a virtual address space and a 
group of virtual processors connected by virtual 
topology. The virtual machine is mapped to the abstract 
physical machines and each virtual processor is mapped 
to the abstract physical processors. A 3rd layer defines 
threads 18. The threads are processes with light weight 

which run on the virtual processors. The abstract physical machine, abstract physical 
processors, virtual machines, virtual processors, thread groups, and threads are preferably all 
objects of a first class. 
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K-t7^x^ hfc*H-5#BaSr«Kpi-5»fflo^Uy 

• *4 y^±X*&m. m^L-rcV. 



[0 0 6 8] ^u-^Kfi, 7f^^l:*Jtt5 7 7-^ 

UyKtt, ^^!/K8:4«Lfct^x^ HJ:5S<4 
J^rtmSo xi/o/WSlt (th 
unk) , i-Jteto^^U'y ' K*5HtT$ix5i:t5S»$*b 
55*9!/— (null a ry) ^n^-i/t^t^^ 
5 0 77 p ^-v^3 y^filiHT*:^ i^^ KrtCfeW 

^^5o (fork-thread (+ y (* 

x z ) ) ) t^5*aSrffflSt5:ttJ:ot, 

( 1 amb d a 0 (+y (*X z) ) ) 5 »J 

'$!<D94 h^^-Y N-^i/y K*s^*ix5 0 rco-^^ 
^(DfpfflS^fi, fork-threadi^5$a© 

sMWsa«t?*>s. 

[0 0 6 9] ^UyKttftlMltWMO-fltL 
TfEMSrrs (H4te«tt50 5#BH) . *u*K«U SiE 
3 6, ^^-;V3 8, IFI4 0, ®i&4 2, $>5^ 

K«\ K<offl*5^^5ft$tb/jrt^K9, 7>& 

il/irtttft^o ^-jri^a.— /l^ttfc* Uj/ Ml, V^T 

5o ±B6*#ttlfct » 7 K©*MI#ilJttS. ft 
[0 0 7 0] ttffiWffteitJWffii-^fra-Kfcjpx. 

T x lo^u^KUSt (1) ^tu^T-TSOS: 
#ot^5«l^Uy Kfc*tt-«#BM*«i:* (2) if 

[0 0 7 1] ftXl/yKt,, «Eft: (i-*t>t>166?j) 

[0 0 7 2] ^U!/K©ll»:*J^ttt, Wf§^fc#3 

V<DmMitM^^mn. &\7Lt£Wlu 1 t i L i s p <D 
" t o u c h" ^ L i n d aO^^r^ CML 
<D" sync" J:oT*J«^# 6WJMfl2»1IB«r «t 5- 

[0 0 7 3] 7/y^3 ^B«»*r3te±KlilB»U, 
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[0 0 7 4] a— 1fJ±. ^1^5/ K • hn — ? (T 
C) Uu.; Ko*>5«*fc*5^TRiaBttl8©»»S:ll 

l\> t*oT, TCCDn — /W*#— ^yi^ • =■ l^^a ^ 
r o 

[0075] (fork— thread expr v 
p) ti\ e x p r tfftftifcfeK^U'y KS:4j*U 

[0076] (dealy- thread expr) 
f±> (^i-y KfCJ:oT) e x p r £ 

[0077] (thread— run thread 
vp) fi, iiJg£ftfc. ypy^^tifc, 
Sftfc thread^v p (O \stt >f — #*>fr#lfcl# Ai" 

[0078] (thread— wait threa 
d) r CD^^U— ^^rH^TbTV^^^ K 

threa dOWitJltSS "C^p 7^ St 

[0079] (thread — block threa 
d . blocker)^, thread \ZZ? u ^ >? 
t5r i:^y h-f^o blockers. 7 U- y 

(let ((filter— lis 
(sieve (lambda (t 
(set f i 
y— thread (thunk) ) 

e r- 1 i s t) ) ) ) ) ) 

-f5 0 7 -> y K • p l^V • ^ i/y KEIl#S:fflV^ V 

(thread~run (car f 
(mod ( 1 

m (current — vi r tua I 

n) 

(vp. vm (current — virtual— pr 

o c e s s o r) ) 9lft<£>VP£r— SBi: 



[0080] (thread — suspend thr 
e a d . quantum) It KfcHfrOfS 
y * h~tZ>o quantura?IPUW: 

mZtlZo *9"C*t^*&»-tt. *fyKtt* thre 
a d-r unSrffl^TM*WfcWBBSix5*-e. MfflPS 

[0081] (thread— terminate t 
hread . values) f3u thread [ZM 
LT v a 1 u e s &*<Dl&&b LT^T"T5 - t fc y * 
^7 h"f~<5 0 (yield — processor) 
SftO^^i/Klc, ^cDVP<DftJp£r^tf)5 J: 5 V 

A£tbS 0 

[0082] (current — thread) (i, I 

[0083] (current— virtual— pr 
o c e s s o r ) » % ^ (7)^-^U— v^3 >^ -?r<D±t? 

[0 0 8 4] i-WH^^l/s/ KSr^p^yAtt 

s 0 :^p^Afc fB^**«a#a<onas:JE 
[0 0 8 5] r<D*««j|,#§ka>!!«tt. 7 h y —a • 

T^t^lCjoltS^P j/^rV^ • t^lz-v^a V (h 
d) v fci^l/y K^ft«tcMJD-rST 27* • * 
^U-VaV (attach) 4:^-^5, 1fs5 5 ^ 

[0 0 8 6] #ra»<0fi»©g£#*&5, 

t (list))) 
hunk) 

Iter— list (cons (dela 

(f i 1 t 

[0 0 8 7] 

i 1 e r — 1 i s t ) 

H- (vm. vp — vector (vp. v 

— processor) ) ) ) 

) 

[0 0 8 8] ^JC»-r5JtSE3-/i'Sr^U»tEr" 
r tic J: 19. ± D y-43ll»?SI¥a©|iaS:*a 
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[0 0 8 9] 



(let ((filter — li 
(sieve (lambda 
(set 



st (list))) 
s (thunk) 
f i I t e r — 1 i s t 
(cons (create— thread 
(begin 

(map threa 



d — run filter list) 



(map 



(thunk) ) ) 
filter — list)) 
thread — block f i 1 ter 



-list)) 



n) ) 



\"(*J—t£X>Vy K • 9 hL5:«U 

(sieve (lambda (t 
( f o r k — t 

n t - v p) ) ) 

n) 

[0 0 9 2] *"rj >^X^ ^l/y K^t^l/-V3 

[0 0 9 3] :7^*lCj:oT£/S$;h/fc;* i/y Ktt2 

(map thread— terminate fil 
ter list) 



3— /UT?tt5f*^<>i:^v^T, V— ^^Jtt3i*5cfct/A* 
[0 0 9 0] :/te#wJ: «fct)>f— * 

[009 1] 
hunk) 

hread— (thunk) (curre 



[0 0 9 4] <*Uy k • ^/v-^>^f>fy^n bi 

/t'— :/f3\ fork— thread — group td*f*t* 

0* P3-(D*0i— ^^)iaT*tt5o loo 
*vfcsr> =i -/He J: o T^T Ufc £ , 

(thread — group— terminate g 
roup) 

[0095] xu^K- ^/w-^ttSfc* ^rflMW*— 
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x£s c 

[0096] (thread — group— termi 
nate (thread, group T)) 
X\sy K • ^-^tt. y • T-^rv^^ 

— • ^/v— ^coi--<Tco^ u^/ K**9 

tt^fl^t>7yt^^v^v^5^^^^- y ■ ^y 

[0 0 9 7] <Hff^v^^^ MsiUtovsr K*M:/ 
uy?>*Uy KsasffRBSrlBttUfci:*, UtTa^* 

^UyKtt^fttt), XUyYW®7uy? (TCB) 
3 2 (0 5) £ LXt>*Pbtb5HtT^>'^^^ h^&lig 

*Lfcfc(D-e*>9 % tttgl'^^y^ 3 1 — jj/U 
hUJMz, TCBli§8it5Ps/^i, 

x^r-h m*-&. vmit. ^tm-. tm. 

[0 0 9 8] ^ K • N^JcJ:^^ ix-/ K • 

ho»»H*:Bl4fc*i- 0 TCBo;R*f±. ffflj 

WUt^o f?If(D7i/7KT^TCB Tjcb £ 
tttt^ftfe, T TC B (O^v— V • 7>f — /^KfiJ^T 

[0 0 9 9] »ffc4 6 : T TC B C88St5^^y^i 
[0 10 0] Ut=M-4 8 : TttflJfflT?#5l^*5V 



[0101] 7^50 : Tfifc5VP±T^ffiHfir^iX 
[0 10 2] 7n^5 2 : Tli, K±T\ 

* it b: *> § * # <d t> t -e stay p s/ ^ £ tu x ^ ^ o 

[01041HT56: Ttt»T«*TU » 0 
[0 10 5] *U;y K£f±**0, TCBfi^r-^ h 
7F^y K • ^y V— • i^-f 

Oi/f^-tt»5i#, TCBtt*h,fci»0ySTb 
V f>p- ^fi-^CDTCBSr, ^Id^j^SHS^ i^s/ KO 

[0 10 6] *-tm ^^cDHfafi^u-?/ Kfc*H"5E1t 

Kfc*J~*- 5 ^ SrK J£1" 3 td 

£ 0 r(DT^ p n—^Xfi2o(Da^^^X^cOffiTSr 
*3< 0 3?1^, ^7^a7yf^O»M^I^{>it 
(is * i^y K • ^yhp-yft H^U-* KSr^V 
$■3:5 ;:£«): 9. ^tbbSr^U. IO»Mti-5rt^, 

■fe^*J»^o sr^tt^Us/ K*s^SH5 ta*>fc«9 

Srgffl-e#ftl^c TCB©SPl5 3T*Siiifi$n 

[0 10 7] x"rj ls?(DXUy KffiiJffll^D ty^fi. {5 
t**>5 0 TCBft K*sffMBSrW!»Ufci:#«)* 

$^^TV^5o TCBfi, VP V±X^>-r^-<#^u 

[0 10 8] l. aftViXHtT^co^u^ K»Tl 
»Kfi]ffl"e*5 0 -tOTCBfifiJ^ST^fc^^ftt^ 
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[0 10 9] 2. »fiE|?^TU-CV^5^Uy K*»TLt 
V^^*&fcf±, TfcLtti-STCBtt* V±fc«l«$*L 
t^5TCB©L I FO^- ^fe#J5STfe*t5 0 - 

!/r->f SrWi"5 tot ftoTV^S, 
[0 110] 3. VOO^— /V*SaS©»^fctt, frLV^T 

Ttihs t tb*«»-e* 5 T C B L * V t Sr*i 

£>VPte % d-^-/-;^TCB^S:^p- 

7X2 — LXV^V*SHHltt. r/2TCBjS^tJ-^V 
• ^-/ud^VPOP-^/v • y—MC&Wl&tlZo it 

(1) TCB©»0at*5J:tW««C*5tf5^o^? 
A<o«»oj»#S:*/Htf-5ri:, (2) i"^T 

©<K«^n ir y *fc*tt-5 TCB <WMEfc#E 

[0 111] 4. fttfelC, TCB^^P-^V.y-/^ 

H\ r / 2 T C B Off LV Sfias»«Jl££rit S 
*K TicWOMiXkitSo frL^TCBfi, ^p— 

^CCD^3£j£$;ft,5<7)X\ ^f^y^'/n ^9^<DW 
ffitO^^H^^$tb^TCBCOlgcfi> -f-^X^VP 
IcioX^fti-^fefrSo 

[0 1 12] <{5ffl^ , Pir^^>>(gffl^ p nir yif (ffiffi 

LX> §g-7i/y) ^f^y^Wr-^ 

**5 J: tWBitf)* raffle fi^^flx^ <b h 5 £ 

jB»T*§5o «xH VP V±T*HfifUTV^5flfe^^ 

(define (up —VP) 
(let ((address 
1 y-v i rtual — proces 

(array— re f 
address 0)))) 

i. m^tzyomtb^^isy-ic^y \f>it&fr%m&^t 

[0 116] 2. iSfflh#n^-fc*5^5TK^Sr# 
VP 5. 

[0117] 3. m&vtfvis—fc^^xmftTy^i/ 

[0 118] 4. SBfflxtT KUv'y^Pv'-^t 



5 0 77>fynu vpttggWt-^^ttsoT, r. 

■ ^ZJ/Wfuit^J*^ SfficoVP (#J;tfi v 
MVP, SVP, tVP, JiVPfc^) j&^fSttxe 

o^fAii, ^*Ih*p^- («x.fi. 

Mlt^<oWf7t-/v N ■ T • K 

SrStt-fi. £*>K, VPB^ftl^Pt^fl: 

7M ^ito^-fxiit^M^ S/rO^JEtf^P-fci/lJ- • h 

5 r. t a c 

[0 113] B17 0^ p n>/^A$:#fiSLTlftW-r^ 0 r 
<T>-fuit*7&\Z^ fe!W7 p Pt!/t0 2^ 
X^fi>fb$ix^:'(Hffll^ p Piry^co3^^ -yi/**rft« 

DM^Pt^t^ y e^i"* r t \z. J: o 

mtl^CXfc^o ^i:S$0/ptytl:-7yify^J 

tbfc^uy Ktt-r^xiRiDvpi-eiitT-rSo ^pv- 

v^^ge t — p m — he i g h t £ g e t — p m — w i 
d t httttlW-rv^y • -r y^-7x-7i:j:oT^x. 
^fr^o ffiffi^P-fe^l^CO^^tT K^^^tt, ere 
ate- 3 D-m e s h /cttM UfcT <D*tM*ftT 

[0114] create — v p :/p i/— tt\ g e 
t - p p^^Uf c ^^^oir^1f±X^^Sf U^VP 

e>gttbXgB^MT Kl/V^' ynv—^^srP^-r 
5r t^prfgt?fe5 0 CTx.fi, h^P te*5V*T lr 
-f * V'S? a >-±#tr»»i"5± V P :/p >-v^ Sr^tt 

[0 115] 

(vp — address (current 
s o r) ) ) ) 

3D— mesh (vector — ref 

[0119] <7l/yK - ayhP-7>^^y K • 

vhp-^fi, Wpt^tl-iS, ttlW^Pty 
Ih^*^ KfcJf, l0^7Ag»t^!)St) 

il^ctot, ^^coiX^VLX^SlKS^Pi? 
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[0 12 0] 7r^y^l/y K • ^^hn — ^§r|| 

*r 5 »£\ t ^ < od»©nft»v ^niH^n e> awe* 
tt, if • r^y-ir— i/3^-e»4fijffl-e*4t\ 

y K • 3V h n — ^Ji;*7V >-^co^{c#^^Tl/^(7) 

[0121] i/— v^^r start — context 
- s w i t c h (El 8) ft, ^(D^I^C^ LT, 
u-s/K (1-ftfc>-*>, TCCAof^u-y K) l^fSS 

C B) t p m— ge t — n e x t — t 

h r e a dlCiotaU^io 
[0 12 2] 7ytf5^Uy Kj&S«^»#fcfi. 

S?irtt« (false) 4rMi~ 0 r<7>^, mftO 

T) , $><5 WiT/n v?^r t p m— v p — i d 1 e 

Ytmp-vp-idle fctfl* ^affaSMf^fif 9 £ t 

[0 12 3] =^9 h«(7)TCBT^^§ 

£\ iftf^tt— SIfffctbi*. affi^^us/ K^a*>KI¥M 

ffia*^ Ktf>»^) tcb^— /vrt-cy^^^stt5 

[0 12 4] MSttfc^v?^^ Hfjziv^^^ 

T#J<9 ST^>tt5o :©TCBIi n e x t - s t a t 
e n o y 4 As Vffiy*? K©»^ICtta4(OTC Bt* 
5o fe5t>l±VPn-*/v • /X^fcH^P— • 
^-;v^?)#J 5 3 1 ?>ii5 T C B i ft 5 0 ^u^Kte, 
S^dv'-v ? 1' start— ne w— t c b £/B^~C 
*fT*rH!»i-5. :^^^U >^** 

Kir LT0rL^TCB£rfflV\ ^P^t start 
-new-thread (01O« £r/£ffl-r£ 0 

[0125] f ini sh — context — swi t 
ch©3-K (S9) [3, s tar t — context 
-swi t c h*s«»S*fc^ixy KiaotUff^ti 
5c ^Ittlt *f U^Uy KOTP7^- /wKStK 



J&i"5ySi«>fc^^ ^ • b Stilt* \sy K C:^ 
y^fcJKSfeU ag^OT^Sftfe^Hucot^Srl^x^-^ 

I^i~<5o v' — v^-V tmp — enqueue — r e a 
dy— thr e a d £ tmp — enqueue— sus 
pended— thread fi, ^Uy K-#y >~ ■ 

[0126] start — new— thread©^- 
KSrEll 0l:*to If^Et Sr^i-^^i/'y K • Or? 

fP«SrW*&-et, tLTf7t/vh-x7--AyK7 
-*5«fct«i3ft* y ^Tvzf- a— KfcH**- 5i5C 
ft5 Q E t i&»btb5fctf>£>;*n — (start-new 

Ki~6o E t ©WffilC«<aaj©3— Ktt^Uy K<£>* 
^ ^/^ t ^^^f— <^/v ? ■ =2 v"3 E t ^ 

n i/— v ? ^{c^fi~5^^/t' ■ y — • 5 
yt^tf U^U'y K£rii*R£it3 0 E t tt^-f-^ 

[0127] ^< s/^-^l/^Va >-te, 
!?^>f ^-^$tb5BUKtTt>tvftJttltfft^ftl/\ -t 

Sr-B/uT^^c^y^^^ httte©ffittfc-7 r lc»fi$'& 

#B8Sr#5ri:Kft5^fe-e*>5o H^Lfc^^yKO 

PJfe^K^^-tft^o 
[0 12 8] <^l^-/ K • /Ky v— • -7^-v J -Y>#® 

BS-TSi-^TO^y V-^)*jeS:tT5 0 ^^K-ay 
fe«9 > J.— ^©3- Kfi-tHSrT ^ir^T^ftV\ ^ u 
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¥<DX Uy Y^^M^^y^\^. S>5tM±i&B:/ 
[0129] i-^-CO^ffl^n-t^i^fj-IH— CO^U-/ K 

[0130] ^ Uy K • >— • -e*— v^tt* l^y 

ot^Se -tttbttw^o^u^ k • *y ■ ■^4^— 
xm^zunzfto x-rz>~t&x*% 

[0131] VPf4-t^-Pix«ft5^^y K • Tjf y 

• sr. ijjs-etao-e, r^y^-v- 

y • h=/u&5iM*s&3;*^v^ — y ^ 

[0132] l/*f(D7. Uy K • ^^^^7(1 

&*^v^-y >^ ■ «y v-*>5v^4it»»3&Afif5p 
»-#yv-|j:]£iL4^ 0 r;K&<D#y iz-ttT^y 
^r— v-3 Wc<S#1-5*^as$)3o iKo^r7t^ 

h • #y is-tfxTj ^^<D±mnm!^mm(D-nt l 

ylH 6f4-?rtuS#o^i/-/ K • zKy $/— ■ 
(TP M) 1 9Sr^LT^5 0 Sfot, ^x.fe*ufd&B 

TPMl 9I^U7K«^^i/^-yy^ ^Ptyf 
[0133] T^y ^-Va ^SrffiS'JcO^^v 5 ^— y >- 



or^y^-^ayft, #»FiFO^^-yy 

[0 1 3 4] vy-mm^m^ lifo 

fcft*Plr»«su«fc5o ^V^^-7/WyXA 
*>5t*tt!7— • 77-^ • T/i^ y X-kSr7>"£itr 

v • :/y ^^^Z/s >- • — ^Sr/Bl^Sr irtcj: 

ot, J:0&#{rSM£LJ;5 o rtbibOT^ y $r— 5/g 

P^7AlSOffiM^tfc5^?), rtb^cDT^y >5r 

[0 13 5] *3g0Jte, $ft47i/-Ay-^(Dgtt=S: 

tf). t^TOTPMIt *^lim^*5^-C^fi— 
£*VCV*ft^j&S % 1*1— — ;*|r{£:fc>&tt*L 

K • #y V— * v^-i/tt^^s/ K • hP-7t 
[0136] (tpm— ge t — n e x t— threa 

d vp) ttftl: v p ±t 7 i^f ^ -Hii©^ 

[0137] (tpm— enqueue — ready- 
thread vp o b j ) ft. KS>3VH±T 
CBO^Ttt^-Cfc?>5 obj^v pfcB8Jti"5TPM 

[0138] (tpm— priority prior 
i ty) ioJztL^ (tmp — quantum quant 
urn) f*. t^*b©3l***«b*«3fel||ltt*\ 

[0139] (tpm— allocate — vp th 
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read) tt t h r e a d £ v p tcfi] 9 3 "C5 0 vp^ 
^<D*^{Cfi, t h r e a dttTPMt «toT«tt*tb 

[0140] (tmp-vp-i d 1 e v p ) f3\ v 

[0141] (tp m— enqueue — suspen 
d up — thread) {3^ v p CDtfcg^fi^'J-h^ 
thread $:Sgt^o 

[0142] TPMIt f^B^^U;/ KK»i-5^-Jr 

coX*fti£^£fr9o (1) •fU<4ritS*tfc^Uy K 
Sr*^ii-5-<^ VPSrilt^i-5o (2) VPi^^ 

[0143] *30Oife£H:, 4S0»i©«ffif¥«S:»5fc«> 
K*K-Cfc5 0 *2©«:^W:. -^n Fn 

^ - ^ fi r. (D EgiJ -T 5 o 

[0144] x^a- y >^ . T^y mKo^ 

[0145] p— # y : rO^rArtl^- <D? 
#co#^>tr^J £r^o ^5 ? 

[0146] JH/Jefl-tf : «P*>fT^Jtt, FIFO, L I F 
o, 7*>-K- Dt'y, «3fclK4k fcSVM^y T/i^^ 
AOlfigftitLT (t$L<Dh<D(DtpX*) M^L&inX^ZIb* 
? 

[0 14 7] wO5MBt?i?0)a«KSra-Sd^J:oT. 
*f$/K ("T^t?*>, TCBSrtt5^^5/K) Sr*^ 



i/^f^st^5o ro#^tT?"jf±, -ttt*4riJ**bfc 

ot, #ifctf>ft*Hft£\ ^p^^^^^F (UK 

[0 14 8] 7i/yK«#!l >— • v^asffL^ 

— *VP±T*7V-r*Ui, »^c^n sf^-f-Sitttft 
V\ ftot, Z.<O£.0t£*Uy KSrHfrLTl^TPM 

[0 14 9] <^ ^/ir— v ? fiatt*#>7« -/-fe— v?e* 
tt^K^^ey • T—*T?^vlZ&\,^X$)m<D8Li<^MiB 

^ — vSr^-T^^JT^y ^-VayCMLtf 5tfe 
[0 15 0] ^x^V^fi, ^ «7t-^eStttft$:* 
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[0151] Hi77-^ h^7^0f-^ffii|t 

[0152] 1 . (put obj por t) H o 
bj*port|:3t:-t5. r<D»fmi£D#i:#H 

[0153] 2. (get port) ft por tfl 
[0 15 4] #-hPi^R*aiLft*^x^ hf± % 

(define (receiv 
(let ( (m s g ( g e 
(f o rk — threa 
(receiver) 

tiMz%\^^uy V%±&-t% :ti:J:ot N S^y 
[0 15 7] rtf)**^ /MDilftf* "TfT-J-? • ^ ^ 

l:totHft*5o (1) h***«Ea^ 
m-e#5o (2) 77-^h^7^/Dv'-v ; t(t 



atr— ^ £TiSft$*bT^5o putoW^ 
v>a ^t>fc5 0 v^a ftifi^t/^ 

[0155] fisj^ff, s^=i tr— Sr/Hi^T;* y-fc— 5^*5 

m 4*««©*i6!)7-*f ^ftt77 p y 4r— V a 

3t^*3aWl^^^ hu-b \m&£^:Z> Z. i: Ot?# 5 — 

[0156]«oT, or^^©fP<Bf-«t 9 , 
(put (lambda () E) port) 
-f u i/— i/^r (lambda () E) Ogfl^^ port 
—^m$tb^ 0 p o r t±XUiy—y<tm<OXo\zmm 

e r port) 
t port))) 

d (m sg) (current — vp)) 
) ) 

7 f ^ 7 d t ^ t ±t* i/ i/- '<t>m7F&intc 
l\ J: "9 e«W4 R P C 7 ^ >f /WlfS T1i4 < f - ^ 

[0 15 8] 77-^ h^7^^D^-> ? t*5«tt?7 

[0 15 9] <^^eyfl>7r>fy^iM§S^^ 
y • ^7vv£ffi^£ 0 ^tfc^^ey • ^7^ h7t-A± 
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[0 16 0] <lE»*«>*^>'^fi#TCB3 2 
fcM*LT3o<D!ES««#fc£ (EI 5) 0 
>y9 3 1XhQ. KICiot^^Hfct^x 

titcitixox-zfi?^? k h%\<^K—7\zmy%xbti 

[0161] KCiot^^^- hfcfc— :A 

i-t£frhv— Xfr - fc:— :/3 3tt\ #J9STbixfc** 

h\zttLxm\<^tiz>o :^t^x^h 

fc>*>^n — - fc-^3 SSr^-f-^ t&XZZ&* * 
^ 3 1 rt^t^x^ HSr*tIi|j:-C#iP 0 r. 

• t-^i^t^fcf-^it sow©* 

\sy blc£^X8m&)Km^btl%<DX\ -Jy^^-b 

[0 16 2] {ftc^u^ Kf±, ^Ujy K<0^^s/^S>5 
T9±xX$t£\<\ «ot, ^i/>7K^^^fcW 



t-^-^r^^^v'gyt^ lot, {fcco 
[0 16 3] V>/f3\ K<0^*0 

[0 16 4] K • ^/v-^(D#^rt— 

-e*>5, Sot, ^rtfc^&uttittbtfft^* 
t^6>-e*5. rco*#fc-^*j-r^$y^jf^ ( a ) 
^rtKiabS**, *s^f± (b) p-^/v. t- 

iot, *te$^^ 0 -r*to*>, mmi$titc*y*s=9 

bfrt>&m*imte*7v=9 h©^77it *^rt-^ 

• ^tf/v^t- Ktt, p— y± 
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[0 16 5] Ktti-St, fcS^^y Kfc«*-S;*w 

(1) y^rt<0#flRflf«f4, ^(DW&<nhZ>^mj. 
M<D*9 y9 • y \s — As ^fcftp— tf/l' . fc — 7\ * 
fctt**fc — ^rt^t^x^ hSr^U (2) p— # 

HSr*U -t Lt (3) ifc^rt-^<0#Kff« 

[0 16 6] P-^V« t-^Oi^i:, ^P — - 

^^f-^^v 5 - 3i/^>> 3 yH p — 

s/ Kriv ^p — • t— ^(D^-fis^? hSrEIWK: 

^n-/</U • t — T^coWJ StClit-^p y?fr*& 

mxhz> 0 

[0167] ^n— ^/V- • b: — ~fl£it — ^ y i? • = 

v-;*^ A ft Uy K> i-ft;b^ ^yv^' =i 

[0 16 8] fc-^P— t-:/ttU -tftlcBKtU 

hfii~-<Tff L^b-^cn t°-$n§ 0 it— <y 
^•nU^Vg^HTf^t, ^p— /VWh — >Ol 

[0169] OftfeWft-^vyioi^ifWW^p 

/KOtttflcii, iftftiW^v'y (APM) £ffffiix5 
T-f ^p • ^-^vtfcSo 
[0 17 0] APM r^y^* • T — 

[0171] 1 . **<Ofia^i/^fe-J-aiK- h-rss^ 



[0 17 2] 2. i>^T-ArtcD{t!l^)-r-<TCD^*5*. ^ 
[0 17 3] 3. v/^ris^l^ K^^T^^-f 
[0 17 4] APMf±/v— hfiffll^^^irPftfti/SWgi] 

HSU'S*— • ^u-/ KfcSl^#y^tt«v^ 
i^T^v^^ A ■ p— /Wi, i/x^rJ* - p— /^fNc 

5, ^/^f^colltTSryp s/^-TS^ 1^2/ Kfi. -t 
<^r.tSr, Ztib* \sy Kco{RS^Pir y*fcii5aii" 
5o **tlcJ:oTVPtttt©4A/6^©^u-/ K4rS* 

^ — ^CO^SJ, fe^l/^iP s y c h eCD^Sffl^P-t 2/-^ 

[0 17 5] fiS-7^f±APMICj:oT4^$tb, -t 

[0 17 6] 1. »Lv^fflTK^SIHSr*j*i-5o 
[0 17 7] 2. :(D7KU^l:APM^-^?r 

[oi7 8] 3. r^ffiS-^y trv^rt^/v— hfijgr 

[0 17 9] 4. ^ ^ tV^lCtttfel^yp t 5/ 
[0 18 0] 5. ftftttltt^D t y f ±t?7 ^St5 
[0 18 1] fi8-7v'y coSSSt- f2> ^rco-^Wi-e^ 
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[0182] 2flfiffl^n-fe S '^ 

. 3 ^|>p--7 (vpc) i 3 tis/pt^t • 

--^-v^ (VPPM) 15^?>J*5o VPny 

h d-7 t v p * y • v^-y 1 1 ^Baffitt, *f 

toH^i: lRiax*fo5, tib*)VP3yhP-7ttV 

tt&1\ v P ^ y h p - 7 f if ^g^ff 5 fc^l^ v P 
y is— • v^Sr^ — /vi~S 0 

[0 1 8 3 J flflStt^n^yl^tt-f-^TR— <DVPn V 

• -r*— v^Sr^v b&XZZ> 0 

p ir s/ D-<omm * # * * x-r a - 1 nF*m 1 4 £o 
*fc, ^x^Afi#^s^n-t5/-y-±-eiHl^vP7Ky 

[0184] IRivi/y^^lrt^P t y f ±<^« 
hD-7^n-;vf§ 0 p]mr x fiffl-7i/y#, 

fa^oi? y IH^ y V^y^fhtzMfe-fvIZ yV&<gm 

[0185] VP/Ky i/— • -r^— v^-rfi:. ^a^^n 
■fe y if- _Lo{E®:/ o -fe 2/ * <£> * ^ ^ - y > J: tfc& 

tt3o©^>f^fc5o ^i«-> vp/ifyy—^- 
^tttVP^bP P^v^ f^^SrStftSo -£>^y 

fcVP*Sf¥tf9^$*tfci:#-e&5 0 »2fc, /Kyv- 

SrftserSo vp/fyi/--^-v ? tn 
ovp^foa^n^^^bteco^D-fe^-y-^ib o» 

fx) S*S^#d^S:«:ft5o 

[0186] :jxbo3oo*&cj;oT, vp^yy 
— • v?^i±-t yy±oy- ^ . u — yco^yi/^ 
^LtSSvyy^if^w^ 

VPSrifr.»c»»^*5^Sr8t«>5r t*s-efr5. 

[0187] ^i/^K-*yi/- - s^^©i 5 ic 
vpiivp^y f>p-7^L-ca<Si$ti^y^ 



tP-^/Vttf§^ SfcfiVP/J? y v"- • -r* — 5? 

e>^»-r5T^-fe^#SSr«pfc*^o vp^yy--v 
■^-v^tt, ^r^fy^H451^raLtI45i 

t^ft^i/-r^^ ■ y^rAi»:*f IT, # 
[oi8 8] ^yj/K-^yy- - 

KS/p-t • 7Ky y- • v^^tfi, 

[0 18 9] APMrt^fel^Ptytli, ffiffl^ 
pirs/t-3yhn-7 (VPC) ^{Rffi^o-fers/i^ • 
Tjfy is— • -v*— v 5 ^ (VPPM) «r&*/T*V*5 0 

-T*fe^)o V P Cl±fifi/P t 5/tlO«l»I^S 

mrfrZthX^Zo yT^-lRlwvpii^ytsri^ 

VPIt (M^fil/O) ^# 

otl^^i/j/ KSrHtTU-CV^So VPPMIiftltt^ 
nir yt±©VP©^^a- y y^£r?T 5o -?:c^^^ 

i/^z.— y is? • ^y v— ttTPM^fflv^ b<Dtffl$kx 

P3yhp-7l^LtS«t5o ^S^f-ry^© 
v*«7^te*ft5VP3#y - v^t^fx.^: 

[0 19 0] <0iJ^®^>l^»Lfc0iJ^J:^fiJ5itt 

LTv^a 0 /n y K 7 - fi^ y -7 Krt t^fft ^ p y- 
^tt'fcSo ^n-^^-y-pJiT^Cfc^fi, Pcoi^ft 
OD^ u-^/ K©3yf^^ hSrfflt^T3lfi i i"5o ^ 

n^x-v/gy (i-^tp-b, ^p/^A-^^y^, t 

BfU, t Ut^y h'7-^3 yr >f 3iax->y 3 yjoi 
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*\ (b) V • ^i/y KSrWW***d\ 

v^tt (c) r^^nir yU-±^>tt(OV^Ttba^^ u^K 

[0191] *^>r y^cjjita r ©«Mi¥att^ 

[0 192] 1. :#MIfgfi/nv'-v J tT^ 

[0193] 2. mft^^fxh&^-fmz 

[0 19 4] 3. ^ttaffio^^yK^ayr^^h 
[0 19 5] 4. — S^>f ^ 

[0 19 6] 5. fifj^tt^— h • XUy 

1: (define (except 

a r g s ) 

2 : ( s a v e — cur r e n 

3: (let ((target 

&handler type arg 



4 : 
) ) 

5 : 

6 : 

7 : 

r g s ) 

8 : 

y type)) 

9 : 

1 0 : 
— thread 

l l ; 



(cond ( ( e q ? t a 



[0 19 7] 6. M^Sr®5 3— Ktt^*— Afciott 

[0198] 77-^^7^nv^-^f^l/>7 
float, 4WfciS-i7 • ;*# = X-M± 

[0 19 9] Rm\*1tMH-<09—#y V - Ktt* 

u-;F (laffilitT^^^Uiy KT»ttfc^) -et>»jw-c# 

^i/y K£+WLT0J^Srfe5j&\ *>5^l4*rU^>' 
abtc^uy KS:*Sr't"5*\ fc5^f43te<o;* K£r 

[0 2 0 0] 

i on — d i spa tcher type. 

t — cont inua t ion) 

handler (get — target 
s) ) ) 

rget (current — thread 



(apply 
(else 

(sign 



handler args)) 



1 target handler a 



(case ( (except ion — pr ior i t 



( (c 

( (i 

target)) 

( (r 



ocessor) )))))) 



ont inue) (return) ) 
mmed i a te) (swi t c h — to 

eschedule) (yield — pr 

^ (7^y5) 0 r>f^^yf-t-tt^yK7-S:&L 

(-rfcfr^m^*^ K) ^^yr 
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^2/ h • ^l/y K VI 0) i\ 4 fctt* 

flOTKiv* i^y K<o»&t>*>5 (7^yi i) o 
[0201] ^f-f K!i y^Wftitt© 

7^ - i/xfAt*Jtt5t>©ttt, t5 1 

#*>ft5 0 CKDClif*, ±!E^— 14*5«iv^*&fcf±, & 

[0 2 0 2 ] 77-^ h^7^^PV-v?tt^^7 

float, 4^l:«-47K^^^^^^ 

[0 2 0 3] Otff'<9&4 A>J£JLh, y^h^^iT- 
[0 2 04] ^ UT^afetT^ni^^A-ett, L 

(Ocontributing^D ^ 5 ^ Hfi 4 fc3ti5 + "C 

t^U-Va >C0g:l^jT*fc?)o Mu 1 t i L i s pfe 
h (7^. — — E) tt\ f+®E<£>fc#>cD;* u-y KS:£ 
*-b LT*nfcjh/0*5. LtvSriCXE^H 



[0 2 0 5] El 1 1 ic«i"*th*y— ■ TJ^ff • ^n^/ 

air* • y y — t^i/-^ i -eth^Sr??? — ^-r— ft 
u^/i- i + i 4 iflctii/ ^t* <Wln*f Lti bd^f- 

If^ffficD^^— — (Diy(Dt UTftllOfitSr y h-f- 

[0 2 0 6] XU^K««l±^^t^x^ 

[0 2 0 7] * y^te$iU7=*-— ©**»HiJtt\ 
tft^tv^5riS:^t5o Tp fci^Tc Sr-ttt-P 

(a) iHSSfctt^^r^^-y^StLfci:^, (b) Wffi 
(c) SfcttH^Ufc:i:#<0^-r^(D 
»6\ T G rat§7^t^S:#5^fc§ 0 *£<z> 

6o (b) <0»^. T F (iT G *s^T-f"5*-ey 

[0 2 0 8] TFfi. TGrtKlBBDafefe^fcHQ (E 
kn&) Sr, ^yf^xf-x^i/f^/D^^U 

/Di/-^.3-;VtLtft5o ^C0^, Tp j&ST 
G S:»flXi-5i:*5. Tp tt, -toteoi^&fctt^tt 
{c^p y^i"5i:^5^X*r.coSig>fbttiEL^o Tp <D 

Tp «t?,vPtt, h • y^S: 

%ff^-^> b^o*— ^— ^y KSrAto4v\ Tp 
OTCBiJSftDfcfflV^nSO-e, T G IC»LTTCB 

[0 2 0 9] r^*iSft»i, 3-;ULt^5^^yM5 
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l(07^ a 7f^-^l/5/K (T H tt^tt 
Uftl^i-io fflMX^*^»&^tt % T G *5cfctfT H tt 

te*s*>3»&fctt\ Tp ttT G *J»Rt5ii:#-e#, 

[0 2 10] «Jfctf>fc«>. y^-Y V^^^V-x^^ h • 
y<3-4ls4f<OHr—s* ^ KSr{£«$*. -t 1X7" 

LT^3;* Uy K^^ne>(offiSr5l*:-e#5BU^. 

[0211] A^icttox-r ^^-r^v^jzt^w 
Sttfc2o<otepiaao*®>ft:-cs>5o &n^ht-3< 

-rv (-r*fc*>. Rico s*u5 0 zommtxi*. 

tt-Cft **»Tt 5 Bf '©^p ^5 A jjsf s/ Kn y 
[0 2 12] is^V-tj:*x*<D±m±. &ffizbb<5 

*S—t£**#<D&j$LX\±, n\Ci~-<X<D^ Uy KOffMB 
Sr^ti^-f, Kp y^ UiV^D^A(Of 



[0213] ^ u-y K^KflXttW *J—t£9*ir t^\z 
2o^tS4ott^ 0 (1) xi/y KcDKUXfi, T 
-jr— 5/3 yiaoT^57^r^-y • 7 P P 

6 0 (2) W^-ftJ^^tjJtt, loco^nir^/i^ 

*uy ywblow&h*) o— * y 7^tt<£Ti-5 0 ^2 

iC, \s4V—t£9*99£&<nm&G>1J*- *<yi? ■ 3^ 
[0 2 14] fdwMtt^*^ • ^u—y<oy<y^^^X 

[0 2 15] A^*5(t^^r— ^ h^T^^^^ 

^/VffilWB:. -7^^/^ U-^ti i<5< ^ftCT/i'^ 
[0 2 16) ^^/Hit^x^hX'fc^ ^^/V--* 

7jk\zls\,^X^XfoZ)o £ fr—*/3 ^\±& 

[0 2 17] ^p-fe^ttffUU^^Sr^^/^PflJcR 

*5iA/fc9. »*Lfc«9, ait 5 i?g*^ 
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3. 

[0218] (get TS [? x] 
(put TS [ (+x 1] ) ) 
rtt(cJ:oTloo^^dSTS^e>^*$^ lfctf 

-r >^ y ^ v h £*t, ^ LtT s icistwgtf btv^o 

[0 2 19] r©M6«-ef±*fc, *^s/ KBMfcfcfflfl! 

[0 2 2 0] (r d TS [x 1 x 2] E) 

^rT% xlix2(±*7t-7/K*fc5o T 
Sft^^/l^^U— i/a >-(spaun TS 
[Ei E 2 ] ) LTWtb;h/C^5i:1-5o 

•y K (T E i *5ctt5TE 2 tPf-SS) Sr^v^-zW- 
5o TEi tTE 2 ^*{c^T-r5ir, LTcO^ 

£\ thread — valu e £r3Sffl*t~ ; 5o lOt^l/ 
[0 2 2 1 ] Lj6»U Ptf3WT**bSfc#TEi. 

$tufc^ic$>^^t > btt^^TE2 Hilt, ffico^ 

ftbTE 2 *»te-r5 0 raSHc, TEi Ott*sPxli 
-BrTSftb. PI±ftlcTE 2 SrSSfci!ftiR"e#5. T 
Ei 4fcttTE2 OV^ttd^i-C^fptfSrtToTV^ 

[0 2 2 2] ^TW^^O, yy—^Y^ =7^<D^\y^y 
[0 2 2 3] ^^a^^-f ^at^JttfiSfe^n^^^ 



ML) t^fgW5:it^5 0 
[0 2 2 41 ^r^f^ft^riCctot, ^n^y 

[0 2 2 5] 1 . a-fWl/y KOff^HSffiSrM^tt 
[0 2 2 6] 2. ftiico;* 1x5/ Kd s ^T Lfct # v 
[0 2 2 7] 3. ;* Us/ KjW&©;* u^ KS:il*T**5 
[0 2 2 8] ffiitfflfiSr/D^^S^ 

5 0 ^ ^ ^ ©a^t tt«]«iTt § ^ x ^ att, -e^ 

ft » M 9 © ^ * ^ X A ttftfK L ft v \> 
[0229] w a i t-for-one^ h 5 ^ h 
i^r%^5 0 ^©tf-^u— rfrlt 

»T"t-5 D tot, m^t (wa 
it — for— one a 1 a 2 • • • a 1 • • • 
a n ) fcfe^Tai /J^v^Ctf^, :0»tv 

ott^t^T© a j , j =jfc 1 (OfFaSr^T-f^o 
[0 2 3 0] AND^JSrH?aLfcwa i t-f o r- 
a 1 1 Y^t h<Dj±m<DfflffiXibZ>o ^tlhftft 

t#^*JtSr«»S*5 0 ftot*S (wa i t-f o 
r — all a 1 a 2 ' - ' a 1 • • • a n) tt* 

a i t-for - one t^l^-i/ayoHat^ 

[0 2 3 1] TCttrttfe^^U— > 3 VSr, 
n v'-^tTfeS b I ock — onse t Srffl^T^JfL 
i"5o K*5«fctfTCB«\ r©««*r**— hi" 

5«t5fc3t«|$nTt^o «itf. TCBiilWcffil 

tu(C^TLft«t?>tfft bftt\ ^-^©^i/y K<0 
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[0232] block-on-set tt. *UyV<D 

few a i t — for — one > 3 >3o J: U*w a 

i t - f o r - a 1 1 ^Ix— VcO^I-^SLT 

block — on-set SrHfr IT V ^5 ^ U- y K) # 

-f or-oneJUaLfctOTfc!), ±iE^ n CO 
»£\ S*flw ait-for-all ^H^TrfcSo 
[0 2 3 3 J mcO^cD^U^ KT g T£r#o-<#3i 

s^i^y k (t w ) t<Dmm*. Tm<Dh<D\ztt-t% 

&m&'Str7 t -*mi& U^5/K'/^7 (TB) 
[0 2 3 4 ] 1 . T w COT C B 

2. T g ±t^Oi/^$tit^5ffi©^x>f^-©TB 
VfcttrZ>&&) block-on-set^m 

/d^7A^ [HI 2^^-fo 
[0 2 3 5 ] Hk<0^—/U 

(block — on— set m Ti T2 ■ • ■ 
T„ ) 

(define (wait — fo 
(b 1 ock — on — g r o 
(map thread— t 

) 

T^ w ait-for-one ^Wfj^^W;^ , -tfttt 
block-grou p SI^CrtGOi-^TCO^ U y K±T? 

[0 2 3 9 ] 7r^^PV-^wa i t - f o 

r-a i i v-a vsr^ss-e#5 0 

tt, ^C0:/n y? - ^-/rt^t^t^^^^ Ktt. 

[0 2 4 0] ^x^V^m. 8^oty1l-©S i 1 i c 
on Graphics Power Series 

(MIPS R3 0 0 0) t s 1 6^Pir yWS i I 
icon Graphics Challenge (M 
IPS R4 4 0 0) <^M*IC*5l^TH?aLfco M"^v- 
Vfi, (3r^ :y v"^ • Pt-uyF) -e/i^^nir 

n-fey*tt7>f h^-f bcoUn i x * U y Kfc-v -/ tT 
Uy Y<D 1 o$r^>-^^:^ 0 

[0 2 4 1 ] U±, nyt^-^-y7F • T— 



ttSft^l^yK (Ttf 5) fc* mfSOTi (mg 
n) ^TLfci^y^P ^^$*5o rtb?>Ti CO 

[0 2 3 6] T/^-^ayilb kock-on-s 

Igtb^tx^T/n -y— v?^r w akeup— waiters 
i:2tfcffl^3o wakeup— wa i t er sf3\ -fr<D 

A£ix2>o TCH ^l/yKTWLfciftt^ot 
wakeup — w a i t e r s £r£2!8rf~5 (#ij;Lff, T 

[0 2 3 7] r.tbf± 2oo^o >?^dS^^_?>tb5 
£ . wa i t-for — one J; 5 t-flfW-^tt 

[0 2 3 8] 

r — one . block — group) 
up 1 block — group) 
erminate block — group 

[0 2 4 2] 

[0 2 4 3] Mfc;MM§fcJ:ixfi* **9~?<< X^Wz 
[0 2 4 4] 4fc*«^«CJ:tt(i, «8^otyflt 

[0 2 4 5] Efc*«K«-J:*Ui* *7i#-e>rXplfB4 
[0 2 4 6] fcmW\Z£tl& JJX9-?«(X*im 
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[0 2 4 7] Mtc^^fcitutf, * U y K»J|R, »5S 

[0 2 4 8 ] sfc*»wt itbtf, v 

[0249] 3E^**M^«t*trf. ±JSoi54y7 h 
[HiB0ffi¥&K9u 

[01] *«9J<o— 3lffi0i|U:«fc5y7 . T-^r. 

[0 2] HI lOtt^SW^VVjoct^a^v-VSr^ 
1-0-Cfc3 o 

[0 3 1 *«BOt^i/- "r>f S^r-AOflMfeT 

[04] *?Sitffll/^^U7 KOlttlfeitfTCB© 

[0 5] *«M^fflVN5IEtS8B^«^**+««ia-x? 

[06] ^tffl^S^l^^ K©^n^9$ V^Srfft 

[0 7] *ISM"effl^5fta«)^nt yt©2D^ y 

jfrT*:/* ^^A^glPJi-5fc^O0T-fc6o 
[0 8] **K-efflt>5 3>'7 1 ^^ h • *4 y^&teW) 

[09] *8»1?ffl^53yf^^ h • *>f ytttikTT 

[010] *aSW-Cfflv^5*fLi^-f y^SrBBJ&i-a^ 
p ^^^$r^i~0trfc^ o 

[0ii] *%pj-cffl^s^y=^^y^>f ©3»*»v^jfi 

[06] 



(define (-filter op n input) 
(let loop ((x thd input)) 

(output (roako-streaa)) 
( last? true)) 
(cond ((zero? (iwd x n)) 

(loop (rest Input) output last?)) 
( last? 

(op (laofada () (f ilter op x output))) 
(loop (rest input) (attach * output) false)) 
(otse (loop (rest input) (attach x outpup) la*t?))»> 

(define (sieve op n) 
(let ((input (nake-inteper-strean n») 
(op (tastoda (> (filter op 2 input))))) 



[012] *«eB*effl^5b 1 ock-on-se t Sr 

l 0 MWftvv'y 

1 1 hTKni/- 

1 2 itoMtyomtfyzfti-K*,^ 

13 {Rffi^n^^f- - 3>- Fo- 9 
1 4 

1 5 ffiffi:/nir s/U* • #9 is— • 

1 6 {KS^nir 

17 K - 

18 * 1/ y K 

19 ^ 1/ K • ^ U • -e^— v?-^ 

2 0, 2 0' Sigh/fp^- 

2 4 S8^>y/7K^S1 
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5 2 ^Py^ 
5 4 
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(define (create-3D-eesh depth) 
(leu ((pa-width (pet-pMldth)) 
(pB-heltfrt (g at -pp-h e ltfrt)) 
(30-nwh (nefco-arreY w h depth))) 
(lot «i 0» 
(If « I pn-vldth) 
(let (Ci 0)) 
(if {< j pB-hairftt) 
(let ((vp (createmp (aet-PP i i)))) 
(sat-vp-addreat vp {vector i j )> 
(let (Ck 0)) 

(cord ((< t depth) 

(aet-arefl aD-nesh vp) 
(-***- (♦ k 1))))) 
(-«- (4 j 1))))))))) 
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(define, (f InisK-context-saitrfi) 
(let* ((yp {current-vp» 

(previous (vacurront-tcb vp)> 
. (stats (tdx state previous))) 
(sat-vp. current-tcb vp (current-teb)) 
(coral ((rwtf previous (currentrtcb)) 
Cccnd C(tcb-stat6-rwdy7 state) 

(it (noq? previous (vp. root-teb vp)) 

(tPBrwwu»-f«aoV-thraaif vp previous))) 
<(tcb-stattrblodcoo7 state) 
(threod-«rt«-ralo*«o (tcb. thread previous))) 
((tcbrstita-suspanded? state) 

(tprrroqueue^spenofed-threed vp (tcb. thread previous)) 
(thread-rnutex-rel ease (tcb. thread previous )))))) 
(enab lo-preorpt i on ) » 
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(define (fitart-contaxt-witch naxt*-state) 
(disab le-preorpt Ion) 
(let* (Cvp (cufrent-vp» 

(next (let (<obj (tpct-oet-noxtrthroad vp))) 
(if (false? cbj) 

(if (tch-state-reedy? next-state) 
(current-tab) 



^tpa vp-idle m)) 
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(define (start-rwrthread) 




(let ((z (error-value "Thread has no value"))) 




(urwind-protect (act z (catdi exit 




( sot- tdi ox it-handler (current-teb) exit) 


((thread thunk (ourrorrt-th 


read))))) 


(let ((Thread (current-thread))) 


(th reed-ge thread) 




(sat- thread value thread z) 




(aakeup-raitsrs thread) 




(set -tab. state (cur rant- tcb) td>-rtaWdaad) 




(start cofTtext-taltch tcto-state/dead))))) 





obj)>„ 

(cond Ueq? next torrent-tab))) 
((tct? naxt) 
(set-tab. state next tcb-state/ running) 
(set-thread *> (tcb. thread next) vp) 
(cond ((eq? next-state teb-state/dead) 

( returns rnent^cb-to-vp-poo I vp) 
( res to ra-tcb-and-regi at era next)) 
(else 

(save-cu r rent- tcb- roe i s tare ) 
(restore-tcb-ancr-refli stars next)))) 
((thread? next) 
(thread-nutax-acguira next) 
(let ((tcb (a I lccate-td> next-state vp))) 
(setup nw thread next vp tcb) 
(If (noq? tcb (current-tcb)) 

(save-eur rant-tcb-revi slers)) 
(thread-avteoc-re I ease next) 
(start-nea-tcb tcb atart-iwMhraad)))))) 
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(define (pblsort root spare id?) 
(cond ((node- left root) 

(let (deft-half (rt/fura (pbisort (node-left root) root up?)))) 
(pbisort (node-rlflht root) spare (not up?)) 
(touch left-half) 
(pbiaoxoe root spare up?))) 
(else (cc«pere-end-*jrep root spare up?)))) 

(define (pblaerge root spare up?) 
(let loop ((root root) (spare spare)) 
(if (coBpare-and-saap root spare up?) 
(f ixup-tree-1 root up?) 
(fixup-tree-2 root up?) 
(cond ((node- 1 eft root) 

(let ((loft-half {four* Hoop (node- 1 oft root) root)))) 
(loop (node-right root) spare) 
{touch left-half)))))) 
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(daft no (blod c -on-aa t count threads) 
(thread-mitax-acquife (eurrerrt-throad)) 
Clot loop ((threads threads) 
Cent count)) 
(cond ((fx-zoro? cnt) 

(threed-sutex-raleace (current- thread))) 
((null? thread* ) 

(Bot^tcb-iait-count (currant^tcb) cnt) 
(tcb-rtato->blac*ed (currant-thread))) 
(else (let ((thread (car three*))) 
(thraad-outax-ocqjiro thread) 
(cond ((threarj-detarnined? thread) 

(threod-futBx-roloase thread) 
(loop (cdr threads) (fx- cnt 1)» 
(else (let ((tb (eake-ifa))) 

(set-tix miter tb (current-thread)) 
(set-ttx thread tb thread) 
(»t-ttxnext tb (thread wai tars thread)) 
(set-thread, waiters thread tb)) 
(thraachnutex-release thread) 
(loop (cdr threads) cut)))))))) 



